home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 1 / Gold Medal Software Volume 1 (Gold Medal) (1994).iso / autocad / 101hatch.arj / BATT.LSP < prev    next >
Lisp/Scheme  |  1993-10-13  |  1KB  |  34 lines
  1. ;     by Bryan Wallace of CAD Studio, Austin, Texas
  2. ;
  3. ;   This routine automates the hatching of a 
  4. ;   parallelogram using the A6 (BATT) hatch pattern. 
  5. ;
  6. (defun C:BATT ()
  7.           (setvar "CMDECHO" 0)
  8.           (command "graphscr")
  9.           (setq PT1 (getpoint "\nFirst point... "))
  10.           (setq PT2 (getpoint "\nSecond point... "))
  11.           (setq PT3 (getpoint "\nThird point... \n"))
  12.           (setq D1 (distance PT1 PT2))
  13.           (setq PT4 (polar PT3 (angle PT2 PT1) D1))
  14.           (setq A1 (- (angle PT2 PT3) (angle PT1 PT2)))
  15.           (setq D2 (* (sin A1) D1))
  16.           (setq A2 (- (* 180 (/ (angle PT2 PT3) PI)) 90))
  17.           (setq SB (getvar "SNAPBASE"))
  18.           (setq SPB PT1)
  19.           (if ( = (length SPB) 3)
  20.               (setq SPB (list (car SPB) (cadr SPB) ))
  21.           ) 
  22.           (setvar "SNAPBASE" SPB)
  23.           (command "PLINE" PT1 PT2 PT3 PT4 "C" )
  24.           (command "HATCH" "A6" D2 A2 "L" "" )
  25.           (setvar "SNAPBASE" SB)
  26.           (setq X (getstring "\nERASE polyline created for boundary of hatch area? <Y or N> \n"))
  27.           (setq X (substr X 1 1))
  28.           (if (or (= X "Y") (= X "y"))
  29.               (command "ERASE" "P" "")
  30.           )
  31.           (setvar "CMDECHO" 1)
  32.           (princ)
  33. )  
  34.